home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pofo / sprachen / pbasic / pbas30 / bar.bas < prev    next >
Encoding:
BASIC Source File  |  1991-08-22  |  341 b   |  19 lines
  1. cls
  2. print "BAR.BAS (c) Rob Kunstadt 1990"
  3. print "Is display tracked PC?"
  4. print "Use Alt-Cursor to scroll"
  5. print
  6. print "How many items to plot (max 12)?"
  7. input "Your choice: ",a
  8. for b=1 to a
  9.  print
  10.  input "Enter a number (1 to 40): ",c
  11.  for d=1 to c
  12.   print ">"
  13.   e=csrlin-1
  14.   f=pos(0)+d
  15.   locate e,f
  16.  next d
  17. next b
  18. system
  19. ə